﻿Option Explicit On
Option Strict On


''' <summary>
''' Muestra Información de la cita.
''' </summary>
''' <remarks>Francisco Juan Royo Bua 08/02/2012</remarks>
Public Class FormInforCita

#Region "Atributos"

    Public iDcita As Cita 'para mostra la informacion de la cita

#End Region

    Private Sub FormInforCita_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        With iDcita

            LabelFecha.Text = LabelFecha.Text & .fecha
            LabelHora.Text = LabelHora.Text & .horaInicio
            LabelNombreCliente.Text = LabelNombreCliente.Text & .Cliente.Nombre
            LabelTelefono.Text = LabelTelefono.Text & .Cliente.Telefono
            LabelTratamiento.Text = LabelTratamiento.Text & .ListaTratamiento(0).nombre
            LabelDuracion.Text = LabelDuracion.Text & (.ListaTratamiento(0).Tiempos * 15) & " minutos"


        End With


    End Sub


End Class